home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / pbc32.zip / PBC$BAS.ZIP / NAMECAS2.BAS < prev    next >
BASIC Source File  |  1996-04-10  |  959b  |  29 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |   PBClone  (C) Copyright 1996 Charon Software, All Rights Reserved   |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE SUB NameCase00 (St$)
  8.  
  9. SUB NameCase (St$)
  10.    NameCase00 St$
  11.    IF RIGHT$(St$, 3) = " Ii" OR RIGHT$(St$, 4) = " Iii" OR RIGHT$(St$, 3) = " Iv" THEN
  12.       place% = INSTR(St$, " ")
  13.       place% = INSTR(place% + 1, St$, " ")
  14.       IF place% THEN
  15.          tmp% = LEN(St$)
  16.          DO
  17.             MID$(St$, tmp%, 1) = UCASE$(MID$(St$, tmp%, 1))
  18.             tmp% = tmp% - 1
  19.          LOOP UNTIL MID$(St$, tmp%, 1) = " "
  20.       END IF
  21.    END IF
  22. END SUB
  23.  
  24. FUNCTION NameCase2$ (St$)
  25.    tmp$ = St$
  26.    NameCase tmp$
  27.    NameCase2$ = tmp$
  28. END FUNCTION
  29.